﻿'Option Strict Off
Option Explicit On
Imports System

Imports System.Data.Common

Namespace MasterDataSetTableAdapters
    Partial Public Class ProductsTableAdapter
        Inherits System.ComponentModel.Component

        Public Function SearchProducts(ByVal dataTable As MasterDataSet.ProductsDataTable, ByVal SQL As String) As Integer
            Dim Text As String
            Text = Me.CommandCollection(0).CommandText
            Try
                Me.CommandCollection(0).CommandText = SQL
                Return Me.Fill(dataTable)
            Catch ex As Exception

            Finally
                Me.CommandCollection(0).CommandText = Text
            End Try
        End Function

    End Class
End Namespace